home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / FORTRAN / 3017.ZIP / TVBIOS.FOR < prev    next >
Text File  |  1988-09-26  |  449b  |  26 lines
  1.       PROGRAM TVBIOS
  2. C
  3. C     TEST PROGRAM FOR VBIOS
  4. C     OLYMPIC SOFTWARE  --  9/22/88
  5. C
  6. C     JUST INPUT THE PARAMETERS, AND WATCH WHAT HAPPENS
  7. C
  8.       EXTERNAL VBIOS
  9.       INTEGER*2 IAR(10)
  10. C
  11.       WRITE(*,50)
  12.  50   FORMAT(' IARRAY=? ',$)
  13. C
  14.       READ(*,*)IAR(1),IAR(2),IAR(3),IAR(4),IAR(5),IAR(6),IAR(7),IAR(8)
  15. C
  16.       CALL VBIOS(IAR)
  17. C
  18.       WRITE(*,51)(IAR(I),I=1,8)
  19.  51   FORMAT(/,' ',8I6)
  20. C
  21.       STOP
  22.       END
  23.  
  24.  
  25.  
  26.